home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / ctoolwrk.lbr / READBAK1.C < prev    next >
Text File  |  1985-09-27  |  384b  |  21 lines
  1. /*                READBAK1.C                   */
  2. /* reads info from file "File" created by READIN?.C  */
  3.  
  4. char x;
  5.  
  6. main()
  7.  
  8. {
  9.  
  10. fopen("file","r");
  11.  
  12.    {
  13.     while((x = getc(1))  !=  '\15')  /* until carriage return */
  14.  
  15.           putc(x,0);
  16.      }
  17.  
  18. fclose(1);
  19.  
  20.  
  21. }